Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir36/batmouse.zip/DIRECTOR.TXT

Text File | 1993-08-20 | 6KB | 231 lines

  1    @echo off
  2    set scrn=on
  3    if not x%menu%==x goto MAINMENU
  4    goto more1
  5    rem REPLY.COM SETS THE CORRESPONDING DECIMAL VALUE OF THE ASCII
  6    rem KEY PRESSED INTO THE DOS ERRORLEVEL REGISTER  -----
  7    rem F1=59, F2=-60, F3=-61, F4=-62,  F5=-63,  y=121,  Y=89,  N=78, n=110, ESCP=27!
  8    :PAGEDOWN
  9    if %menu%==1 goto more2
 10    if %menu%==2 goto more3
 11    goto more1
 12    :PAGEUP
 13    if %menu%==1 goto more3
 14    if %menu%==2 goto more1
 15    goto more2
 16    :more1
 17    set menu=1
 18    goto mainmenu
 19    :more2
 20    set menu=2
 21    goto mainmenu
 22    :more3
 23    set menu=3
 24    :mainmenu
 25    c:
 26    REM CD \ ----- REINSTATE THIS LINE TO USE SYSTEM IN ROOT DIR
 27    CURSOFF
 28    if %scrn%==on goto scn
 29    GOTO %menu%
 30    :1
 31    echo %6;%7m
 32    echo 4H  WORD PROCESSOR
 33    echo 4H  POWER MENU
 34    echo 34H  NETWORK LOGIN
 35    echo 34H  FORM TOOL
 36    echo 34H  HIJAAK
 37    echo 34H  BUSINESS SYSTEM
 38    echo 34H  PAINT BRUSH
 39    echo 34H
 40    echo 8H1/3
 41    GOTO ENDSCR
 42    :2
 43    echo %6;%7m
 44    echo 4H  SCREEN PAINTER
 45    echo 4H  WINDOWS
 46    echo 34H  SOLITAIRE
 47    echo 34H  BASIC
 48    echo 34H  MODIFIED BACKUP
 49    echo 34H  NORTON UTILITIES
 50    echo 34H  GAMES MENU
 51    echo 34H
 52    echo 8H2/3
 53    GOTO ENDSCR
 54    :3
 55    echo %6;%7m
 56    echo 4H  AUTOCAD
 57    echo 4H  XTREE
 58    echo 34H  ACCOUNTING
 59    echo 34H  SET BACKUP DATE
 60    echo 34H  TAPE BACKUP
 61    echo 34H  ZIP PROGRAM
 62    echo 34H  DISK LABELS
 63    echo 34H
 64    echo 8H3/3
 65    :ENDSCR
 66    echo
 67    CURSON
 68    :REENTER
 69    BATMOUSE
 70    if not %vc%==- goto mouse
 71    if errorlevel 72 if not errorlevel 73 goto help
 72    if errorlevel 104 if not errorlevel 105 goto help
 73    if errorlevel 68 if not errorlevel 69 goto pagedown
 74    if errorlevel 81 if not errorlevel 82 goto f9
 75    if errorlevel 27 if not errorlevel 28 goto F9
 76    if errorlevel 67 if not errorlevel 68 goto F9
 77    if errorlevel 113 if not errorlevel 114 goto F9
 78    set scrn=on
 79    if errorlevel 66 if not errorlevel 67 goto F8%menu%
 80    if errorlevel 65 if not errorlevel 66 goto F7%menu%
 81    if errorlevel 64 if not errorlevel 65 goto F6%menu%
 82    if errorlevel 63 if not errorlevel 64 goto F5%menu%
 83    if errorlevel 62 if not errorlevel 63 goto F4%menu%
 84    if errorlevel 61 if not errorlevel 62 goto F3%menu%
 85    if errorlevel 60 if not errorlevel 61 goto F2%menu%
 86    if errorlevel 59 if not errorlevel 60 goto F1%menu%
 87    set scrn=off
 88    goto badkey
 89    :mouse
 90    if %hr%==1 goto pageup
 91    if %hr%==25 goto pagedown
 92    if %hr%==2 goto pageup
 93    if %hr%==24 goto pagedown
 94    if %hr%==3 goto pageup
 95    if %hr%==23 goto pagedown
 96    if %hr%==21 if %vc%==62 goto HELP
 97    if %hr%==22 if %vc%==62 goto F9
 98    if %hr%==22 if %vc%==63 goto F9
 99    if %vc%==31 goto callprog
100    if %vc%==32 goto callprog
101    if %vc%==33 goto callprog
102    if %vc%==34 goto callprog
103    if %vc%==35 goto callprog
104    if %vc%==36 goto callprog
105    if %vc%==37 goto callprog
106    if %vc%==38 goto callprog
107    if %vc%==39 goto callprog
108    if %vc%==40 goto callprog
109    if %vc%==41 goto callprog
110    if %vc%==42 goto callprog
111    if %vc%==43 goto callprog
112    if %vc%==44 goto callprog
113    if %vc%==45 goto callprog
114    goto badkey
115    :callprog
116    set scrn=on
117    if %hr%==7 goto F1%menu%
118    if %hr%==9 goto F2%menu%
119    if %hr%==11 goto F3%menu%
120    if %hr%==13 goto F4%menu%
121    if %hr%==15 goto F5%menu%
122    if %hr%==17 goto F6%menu%
123    if %hr%==19 goto F7%menu%
124    if %hr%==21 goto F8%menu%
125    :badkey
126    echo 
127    set scrn=off
128    goto REENTER
129    :F11
130    WS2
131    goto MAINMENU
132    :F21
133    SET PROGTODO=PWR
134    goto END
135    :F31
136    SET PROGTODO=LI
137    goto END
138    :F41
139    SET PROGTODO=FORM
140    goto END
141    :F51
142    SET PROGTODO=HIJ
143    GOTO END
144    :F61
145    SET PROGTODO=FOTO
146    GOTO END
147    :F71
148    SET PROGTODO=PB
149    GOTO END
150    :F81
151    goto MAINMENU
152    :F12
153    SET PROGTODO=SAY
154    GOTO END
155    :F22
156    cd \windows
157    win
158    goto MAINMENU
159    :F32
160    SET PROGTODO=cards
161    GOTO END
162    :F42
163    SET PROGTODO=MORT
164    GOTO END
165    :F52
166    SET PROGTODO=BACKEMUP
167    GOTO END
168    :F62
169    CALL norton
170    goto MAINMENU
171    :F72
172    cd \GAMES
173    call GAMESMNU
174    GOTO MAINMENU
175    :F82
176    goto MAINMENU
177    :F13
178    SET PROGTODO=ACAD
179    GOTO END
180    :F23
181    \MISC\XTREE
182    goto MAINMENU
183    :F33
184    SET PROGTODO=QB
185    GOTO END
186    :F43
187    c:\tnc\db3\chngbkup
188    goto MAINMENU
189    :F53
190    CALL \tapesyst
191    goto MAINMENU
192    :F63
193    CD \PKMENU
194    CALL PKZMENU
195    CD \
196    goto MAINMENU
197    :F73
198    CD \DSKLIST
199    CALL DISKLIST
200    CD \
201    goto MAINMENU
202    :F83
203    goto MAINMENU
204    :HELP
205    SHOW HELP
206    BATMOUSE
207    :SCN
208    set scrn=off
209    echo H
210    echo
211    SHOW DIRSCN%1
212    echo %2;%3m
213    echo H░░░░░░░░░░░░░░░░░░░░░ P E R S O N A L  D I R E C T O R ░░░░░░░░░░░░░░░░░░░░░░░
214    echo %4;%5m
215    echo 0H F1
216    echo 0H F2
217    echo 30H F3
218    echo 30H F4
219    echo 30H F5
220    echo 30H F6
221    echo 30H F7
222    echo 30H F8
223    echo 61H H - HELP
224    echo 61H F9 - EXIT TO DOS
225    echo 61H F10 - PAGE DOWN
226    GOTO %MENU%
227    :F9
228    SET PROGTODO=CLS
229    :END
230    %PROGTODO%